home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sort2.zip / SORT.TYP < prev    next >
Text File  |  1993-01-04  |  888b  |  30 lines
  1. { These type definitions were intended to make things clean in the
  2.   binary tree routine for SORT }
  3.  
  4. { field name rationale: }
  5.  
  6. { u -- the "up" pointer }
  7. { r -- the "right" pointer }
  8. { l -- the "left" pointer }
  9. { c -- count of times this field has been stored }
  10. { ks -- column of key field start position }
  11. { kl -- key field length }
  12. { k  -- a numeric key (present even if not used for sorting) }
  13. { d  -- the data field -- what was read from the file }
  14.  
  15. type
  16.      lp = ^line;             { line pointer }
  17.  
  18.      lh = record u,r,l:lp;
  19.                  c:integer;
  20.                  ks,kl:byte;
  21.                  k:real;end; { line header declaration }
  22.  
  23.      line = record u,r,l: lp;
  24.                   c: integer;
  25.                   ks,kl:byte;
  26.                   k: real;
  27.                   d: string; end;
  28.                              { Btree record declaration }
  29.  
  30.